home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1990 December / 1990-12.d64 / text fitter (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  2KB  |  58 lines
  1. 10 rem copyright 1990, compute publications int'l, ltd. all rights reserved
  2. 20 poke55,192:poke56,91
  3. 30 ifa=0thena=1:load"fitter.ml",8,1
  4. 40 sys49252:rem init
  5. 50 poke53280,0:poke53281,0
  6. 60 print"[147][154]text fitter - mark text limit lines[159]"
  7. 70 print"select cursor: [r]=red [g]=green"
  8. 80 print"move selected cursor with [crsr] keys"
  9. 90 print"[m]=mark line between cursors"
  10. 100 print"[u]=unmark line"
  11. 110 print"[clr]=remove all lines"
  12. 120 print"[_]=return to this screen"
  13. 130 print"[155]press [t] at this screen to begin"
  14. 140 print"placing text. [153]press any other key to"
  15. 150 print"continue marking lines."
  16. 160 getk$:ifk$=""then160
  17. 170 ifk$="t"then200
  18. 180 sys50450:rem markl
  19. 190 goto160
  20. 200 print"[147][154]text fitter - place text[159]"
  21. 210 print"insert disk and enter filename"
  22. 220 print"(press [return] alone to go back.)"
  23. 230 sf$="":inputsf$:ifsf$=""then60
  24. 240 print"enter filename for leftover text"
  25. 250 print"(press [return] alone for no file.)"
  26. 260 lf$="":inputlf$
  27. 270 open2,8,2,"0:"+sf$+",s,r"
  28. 280 print"[147][154]text fitter - place text[159]"
  29. 290 print"move cursor with [crsr] keys"
  30. 300 print"[t]=fill with text at cursor location"
  31. 310 print"[_]=return to this screen."
  32. 320 print"[155]press [s] at this screen to save or"
  33. 330 print"print the page, [f] to start a new"
  34. 340 print"source file. [153]press any other key to"
  35. 350 print"continue placing text."
  36. 360 getk$:ifk$=""then360
  37. 370 ifk$="s"ork$="f"then420
  38. 380 sys50683:ifpeek(49249)=0then360:rem marktx, savest
  39. 390 close2:print"[147]end of ";sf$:print"press any key"
  40. 400 getk$:ifk$=""then400
  41. 410 goto200
  42. 420 iflf$<>""thenopen3,8,3,"0:"+lf$+",s,w":sys51153:close3:rem lftovr
  43. 430 close2
  44. 440 ifk$="f"then200
  45. 450 print"[147][154]text fitter - save/print[159]"
  46. 460 print"[d]=save to disk."
  47. 470 print"[p]=print (be sure printer is ready)."
  48. 480 print"[x]=exit."
  49. 490 getk$:ifk$<>"d"then530
  50. 500 input"filename";sf$
  51. 510 open2,8,2,"0:"+sf$+",s,w"
  52. 520 sys51098:close2:goto450:rem outpge
  53. 530 ifk$<>"p"then560
  54. 540 rem poke51133,13:rem to add return to each line
  55. 550 open2,4,7:sys51098:print#2:close2:goto450:rem outpge
  56. 560 ifk$<>"x"then490
  57. 570 end
  58.